The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/valnc.src

Text File | 1991-05-29 | 340b | 16 lines

%%HP: T(3)A(D)F(.);
@ VALNC, finds # of valence electrons when given atomic #
@ by Michael Andrew Lowry
@ REQUIRES HP SOLVE EQ LIBRARY CARD
\<< \-> atno
  \<< atno 13 PTPROP DUP " " POS 1 - 1 SWAP SUB OBJ\-> DUP
    IF 10 >
    THEN 10 -
    ELSE DUP DUP
      IF 9 == SWAP 10 == OR
      THEN 8
      END
    END
  \>>
\>>